COVID-Canada
Wendy Anthony
2022/03/15
1 ggiraph
interactive ggplot graphs in R with ggiraph
https://www.infoworld.com/article/3626911/easy-interactive-ggplot-graphs-in-r-with-ggiraph.html
“Use a ggiraph interactive geom instead of a “regular” ggplot geom.
The format is easy to remember: Just add _interactive to your usual geom.
So, geom_col() for a regular bar chart would be geom_col_interactive(), geom_point() would be geom_point_interactive(), and so on.
Add at least one interactive argument to the graph’s aes() mapping: tooltip, data_id, or onclick.
That data_id argument is what connects two graphics, letting you hover over one and affect the display of another one — all without Shiny."
“After creating your ggiraph dataviz object, use the girafe() function to turn it into a JavaScript graphic.
Yes, that’s girafe() like the animal but with one f - the creator of ggiraph, David Gohel, lives in Paris.”
2 Install packages
3 Load libraries
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(ggplot2)
library(ggiraph)
library(patchwork)
library(lubridate)##
## Attaching package: 'lubridate'## The following objects are masked from 'package:base':
##
## date, intersect, setdiff, unionlibrary(scales) # For the percent_format() function in ggplot axis
# for Canada map
library(sf) # for st_read## Linking to GEOS 3.8.1, GDAL 3.1.4, PROJ 6.3.14 Get data
https://health-infobase.canada.ca/covid-19/epidemiological-summary-covid-19-cases.html https://resources-covid19canada.hub.arcgis.com/datasets/provincial-daily-totals/explore
data_url_can <- "Provincial_Daily_Totals.csv"5 Get 2021 Canada census population data for provinces
data_url_can_pop <- "1710000901-eng-Canada-Census-2021-pop.csv"5.1 Read csv Canada COVID data
all_data_can <- read.csv(data_url_can)5.2 Read csv Canada population data
need to remove meta data … first 9 rows
pop_data_can <- read.csv(data_url_can_pop, skip = 10, header = F)5.3 rename column names
names(pop_data_can)[1] <- "Province"
names(pop_data_can)[2] <- "Population"5.4 Convert population data.frame to all capitals to match all_data_can
pop_data_can$Province = toupper(pop_data_can$Province)
pop_data_can$Province## [1] "CANADA"
## [2] "NEWFOUNDLAND AND LABRADOR"
## [3] "PRINCE EDWARD ISLAND"
## [4] "NOVA SCOTIA"
## [5] "NEW BRUNSWICK"
## [6] "QUEBEC"
## [7] "ONTARIO"
## [8] "MANITOBA"
## [9] "SASKATCHEWAN"
## [10] "ALBERTA"
## [11] "BRITISH COLUMBIA"
## [12] "YUKON"
## [13] "NORTHWEST TERRITORIES 5"
## [14] "NUNAVUT 5"
## [15] "FOOTNOTES:"
## [16] "1"
## [17] "2"
## [18] "3"
## [19] "4"
## [20] "5"
## [21] "HOW TO CITE: STATISTICS CANADA. TABLE 17-10-0009-01 POPULATION ESTIMATES, QUARTERLY"
## [22] "HTTPS://WWW150.STATCAN.GC.CA/T1/TBL1/EN/TV.ACTION?PID=1710000901"5.5 rename row values
pop_data_can$Province[pop_data_can$Province=="NUNAVUT 5"] <- "NUNAVUT"
#pop_data_can$Province[pop_data_can$Province=="NEWFOUNDLAND AND LABRADOR"] <- "NL"
pop_data_can$Province[pop_data_can$Province=="PRINCE EDWARD ISLAND"] <- "PEI"
pop_data_can$Province[pop_data_can$Province=="NORTHWEST TERRITORIES 5"] <- "NWT"
# pop_data_can$Province[pop_data_can$Province=="BRITISH COLUMBIA"] <- "BC"5.6 remove last 8 rows of meta data
pop_data_can <- pop_data_can[-c(15:22), ]
pop_data_can$Province## [1] "CANADA" "NEWFOUNDLAND AND LABRADOR"
## [3] "PEI" "NOVA SCOTIA"
## [5] "NEW BRUNSWICK" "QUEBEC"
## [7] "ONTARIO" "MANITOBA"
## [9] "SASKATCHEWAN" "ALBERTA"
## [11] "BRITISH COLUMBIA" "YUKON"
## [13] "NWT" "NUNAVUT"5.7 data info
head(all_data_can)## OBJECTID Province Abbreviation DailyTotals SummaryDate
## 1 1 ALBERTA AB 0 2020/01/25 12:00:00+00
## 2 2 NWT NT 0 2020/01/25 12:00:00+00
## 3 3 YUKON YT 0 2020/01/25 12:00:00+00
## 4 4 SASKATCHEWAN SK 0 2020/01/25 12:00:00+00
## 5 5 PEI PE 0 2020/01/25 12:00:00+00
## 6 6 ONTARIO ON 1 2020/01/25 12:00:00+00
## TotalCases TotalRecovered DailyRecovered TotalDeaths DailyDeaths TotalTested
## 1 0 0 0 0 0 0
## 2 0 0 0 0 0 0
## 3 0 0 0 0 0 0
## 4 0 0 0 0 0 0
## 5 0 0 0 0 0 0
## 6 1 0 0 0 0 0
## DailyTested TotalActive DailyActive TotalHospitalized DailyHospitalized
## 1 0 0 0 NA NA
## 2 0 0 0 NA NA
## 3 0 0 0 NA NA
## 4 0 0 0 NA NA
## 5 0 0 0 NA NA
## 6 0 1 1 NA NA
## TotalICU DailyICU TotalVaccinated DailyVaccinated TotalDose1 DailyDose1
## 1 NA NA NA NA NA NA
## 2 NA NA NA NA NA NA
## 3 NA NA NA NA NA NA
## 4 NA NA NA NA NA NA
## 5 NA NA NA NA NA NA
## 6 NA NA NA NA NA NA
## TotalDose2 DailyDose2 TotalBooster DailyBooster
## 1 NA NA NA NA
## 2 NA NA NA NA
## 3 NA NA NA NA
## 4 NA NA NA NA
## 5 NA NA NA NA
## 6 NA NA NA NAstr(all_data_can)## 'data.frame': 11685 obs. of 26 variables:
## $ OBJECTID : int 1 2 3 4 5 6 7 8 9 10 ...
## $ Province : chr "ALBERTA" "NWT" "YUKON" "SASKATCHEWAN" ...
## $ Abbreviation : chr "AB" "NT" "YT" "SK" ...
## $ DailyTotals : int 0 0 0 0 0 1 0 0 0 0 ...
## $ SummaryDate : chr "2020/01/25 12:00:00+00" "2020/01/25 12:00:00+00" "2020/01/25 12:00:00+00" "2020/01/25 12:00:00+00" ...
## $ TotalCases : int 0 0 0 0 0 1 0 0 0 0 ...
## $ TotalRecovered : int 0 0 0 0 0 0 0 0 0 0 ...
## $ DailyRecovered : int 0 0 0 0 0 0 0 0 0 0 ...
## $ TotalDeaths : int 0 0 0 0 0 0 0 0 0 0 ...
## $ DailyDeaths : int 0 0 0 0 0 0 0 0 0 0 ...
## $ TotalTested : int 0 0 0 0 0 0 0 0 0 0 ...
## $ DailyTested : int 0 0 0 0 0 0 0 0 0 0 ...
## $ TotalActive : int 0 0 0 0 0 1 0 0 0 0 ...
## $ DailyActive : int 0 0 0 0 0 1 0 0 0 0 ...
## $ TotalHospitalized: int NA NA NA NA NA NA NA NA NA NA ...
## $ DailyHospitalized: int NA NA NA NA NA NA NA NA NA NA ...
## $ TotalICU : int NA NA NA NA NA NA NA NA NA NA ...
## $ DailyICU : int NA NA NA NA NA NA NA NA NA NA ...
## $ TotalVaccinated : int NA NA NA NA NA NA NA NA NA NA ...
## $ DailyVaccinated : int NA NA NA NA NA NA NA NA NA NA ...
## $ TotalDose1 : int NA NA NA NA NA NA NA NA NA NA ...
## $ DailyDose1 : int NA NA NA NA NA NA NA NA NA NA ...
## $ TotalDose2 : int NA NA NA NA NA NA NA NA NA NA ...
## $ DailyDose2 : int NA NA NA NA NA NA NA NA NA NA ...
## $ TotalBooster : int NA NA NA NA NA NA NA NA NA NA ...
## $ DailyBooster : int NA NA NA NA NA NA NA NA NA NA ...class(pop_data_can)## [1] "data.frame"head(pop_data_can)## Province Population
## 1 CANADA 38,436,447
## 2 NEWFOUNDLAND AND LABRADOR 521,758
## 3 PEI 165,936
## 4 NOVA SCOTIA 998,832
## 5 NEW BRUNSWICK 794,300
## 6 QUEBEC 8,631,147str(pop_data_can)## 'data.frame': 14 obs. of 2 variables:
## $ Province : chr "CANADA" "NEWFOUNDLAND AND LABRADOR" "PEI" "NOVA SCOTIA" ...
## $ Population: chr "38,436,447" "521,758" "165,936" "998,832" ...glimpse(pop_data_can)## Rows: 14
## Columns: 2
## $ Province <chr> "CANADA", "NEWFOUNDLAND AND LABRADOR", "PEI", "NOVA SCOTIA"…
## $ Population <chr> "38,436,447", "521,758", "165,936", "998,832", "794,300", "…5.8 find unique-values
unique(all_data_can[c("Province")])## Province
## 1 ALBERTA
## 2 NWT
## 3 YUKON
## 4 SASKATCHEWAN
## 5 PEI
## 6 ONTARIO
## 7 NEW BRUNSWICK
## 8 REPATRIATED
## 9 NOVA SCOTIA
## 10 NL
## 11 MANITOBA
## 12 BC
## 13 NUNAVUT
## 14 QUEBEC
## 1053 PRINCE EDWARD ISLAND
## 1054 NEWFOUNDLAND AND LABRADOR
## 1056 BRITISH COLUMBIA
## 1063 NORTHWEST TERRITORIES
## 1064 REPATRIATED CDN
## 1135 CANADA5.8.1 vector of not provinces to filter out
not_provinces <- c("CANADA", "REPATRIATED", "REPATRIATED CDN")6 Create new date column for date
class(all_data_can$SummaryDate) # character## [1] "character"# create new column
all_data_can$Date <- ""
# move position of Date column
# moved date column to first column
# https://stackoverflow.com/questions/3369959/moving-columns-within-a-data-frame-without-retyping
data.table::setcolorder(all_data_can, "Date")
# move Date column to 7th position
data.table::setcolorder(all_data_can, 2:6)6.1 convert date
all_data_can$Date <- as.Date(all_data_can$SummaryDate)
class(all_data_can$Date) # date## [1] "Date"6.1.1 filter out non-provinces tot vac
bar_graph_data_recent_can <- all_data_can %>%
filter(Date == max(Date), !(Province %in% not_provinces)) %>%
select(Province, TotalVaccinated)7 TV - Create bar graph total vaccination
bar_graph_totvac <- ggplot(bar_graph_data_recent_can,
aes(x = reorder(Province, TotalVaccinated),
y = TotalVaccinated)) +
geom_col(color = "black", fill="#0072B2", size = 0.5) +
theme_minimal() +
theme(axis.text=element_text(size = 10)) +
labs(title = "Fully Vaccinated March 23, 2022",
subtitle = "Data from https://resources-covid19canada.hub.arcgis.com"
) +
ylab("Total Vaccinated") +
xlab("") +
scale_y_continuous(labels = comma_format()) +
coord_flip()7.1 TV-View bar_graph totvac
bar_graph_totvac
7.2 TV-Create a tooltip column in R
bar_graph_data_recent_can <- bar_graph_data_recent_can %>%
mutate(
tooltip_text = paste0(toupper(Province), "\n",
TotalVaccinated, " (#)")
)7.3 Make the bar chart interactive with ggiraph totvac
latest_vax_graph <- ggplot(bar_graph_data_recent_can,
aes(x = reorder(Province, TotalVaccinated),
y = TotalVaccinated,
tooltip = tooltip_text, data_id = Province #<<
)) +
geom_col_interactive(color = "black", fill="#0072B2", size = 0.5) + #<<
theme_minimal() +
theme(axis.text=element_text(size = 6)) + #<<
labs(title = "Fully Vaccinated March 23, 2022",
subtitle = "Data from https://resources-covid19canada.hub.arcgis.com"
) +
ylab("Total Vaccinated") +
xlab("") +
scale_y_continuous(labels = comma_format()) +
coord_flip()
girafe(ggobj = latest_vax_graph, width_svg = 5, height_svg = 4)8 Merge 2 data.frames for pop
all_data_can_pop <- merge(all_data_can, pop_data_can, by="Province")
# move population column to beginning
data.table::setcolorder(all_data_can_pop, "Population")# create new column for PercentVaccinated
all_data_can_pop$PercentVaccinated <- ""
# move PercentVaccinated column to beginning
data.table::setcolorder(all_data_can_pop, "PercentVaccinated")
# move PercentVaccinated column to 23th position
data.table::setcolorder(all_data_can_pop, 2:22)8.1 calculate Percent Vaccinated
class(all_data_can_pop$PercentVaccinated) # character >> numeric## [1] "character"class(all_data_can_pop$TotalVaccinated) # integer > numeric >>>> total vaccinated is adding up dose 1 + dose 2 + ## [1] "integer"class(all_data_can_pop$Population) # character## [1] "character"# Change character to numeric >> worked
all_data_can_pop$PercentVaccinated <- as.numeric(all_data_can_pop$PercentVaccinated)
all_data_can_pop$TotalVaccinated <- as.numeric(all_data_can_pop$TotalVaccinated)
# N/A introduced by coercion???? trying to convert Population from character to numeric with NAs
# all_data_can_pop$Population1 <- as.numeric(all_data_can_pop$Population)
class(all_data_can_pop$Population) # character >> factor >> numeric## [1] "character"# Population column has commas, which wouldn't let the characters be converted to numeric,
# after removing commas, it converts properly
all_data_can_pop$Population <- as.numeric(gsub(",", "", all_data_can_pop$Population)) 9 calculate percentage >>> total vaccinated is actual dose 1 + dose 2 >>> % of pop is > 1
all_data_can_pop <- dplyr::mutate(all_data_can_pop, PercentVaccinated = TotalVaccinated / Population)
all_data_can_pop <- dplyr::mutate(all_data_can_pop, PercentVaccinatedDose1 = TotalDose1 / Population)
all_data_can_pop <- dplyr::mutate(all_data_can_pop, PercentVaccinatedDose2 = TotalDose2 / Population)
all_data_can_pop <- dplyr::mutate(all_data_can_pop, PercentVaccinatedBooster = TotalBooster / Population)# move position of percentage columns
# moved date column to first column
# https://stackoverflow.com/questions/3369959/moving-columns-within-a-data-frame-without-retyping
data.table::setcolorder(all_data_can_pop, "PercentVaccinatedDose1")
# move Date column to 7th position
data.table::setcolorder(all_data_can_pop, 2:25)
data.table::setcolorder(all_data_can_pop, "PercentVaccinatedDose2")
data.table::setcolorder(all_data_can_pop, 2:28)
data.table::setcolorder(all_data_can_pop, "PercentVaccinatedBooster")
data.table::setcolorder(all_data_can_pop, 2:32)10 type of variables
str(all_data_can_pop)## 'data.frame': 9348 obs. of 32 variables:
## $ Population : num 4464170 4464170 4464170 4464170 4464170 ...
## $ Province : chr "ALBERTA" "ALBERTA" "ALBERTA" "ALBERTA" ...
## $ OBJECTID : int 11928 8480 1865 1730 4280 2090 387 445 432 3170 ...
## $ Abbreviation : chr "AB" "AB" "AB" "AB" ...
## $ DailyTotals : int 0 60 19 45 406 15 0 0 0 0 ...
## $ SummaryDate : chr "2022/01/29 12:00:00+00" "2021/06/21 12:00:00+00" "2020/05/20 12:00:00+00" "2020/05/12 12:00:00+00" ...
## $ Date : Date, format: "2022-01-29" "2021-06-21" ...
## $ TotalCases : int 487436 231419 6735 6345 23402 7091 0 0 0 11430 ...
## $ TotalRecovered : int 442605 227124 5637 4866 19734 6611 0 0 0 10097 ...
## $ DailyRecovered : int 0 182 -217 207 234 24 0 0 0 0 ...
## $ TotalDeaths : int 3531 2292 128 118 296 146 0 0 0 208 ...
## $ DailyDeaths : int 0 2 0 1 3 1 0 0 0 0 ...
## $ TotalTested : int 6728210 4643107 221571 191330 1668277 275524 0 0 0 743885 ...
## $ DailyTested : int 0 2841 2607 3173 14916 4226 0 0 0 0 ...
## $ TotalActive : int 41300 2003 970 1361 3372 334 0 0 0 1125 ...
## $ DailyActive : int 0 -124 236 -163 169 -10 0 0 0 0 ...
## $ TotalHospitalized : int 1496 214 58 73 113 48 NA NA NA 68 ...
## $ DailyHospitalized : int 0 0 -3 0 -3 0 NA NA NA 0 ...
## $ TotalICU : int 105 56 7 12 16 6 NA NA NA 18 ...
## $ DailyICU : int 0 3 -1 0 0 0 NA NA NA 0 ...
## $ TotalVaccinated : num 8255417 3804700 NA NA NA ...
## $ PercentVaccinated : num 1.849 0.852 NA NA NA ...
## $ DailyVaccinated : int 0 29026 NA NA NA NA NA NA NA NA ...
## $ TotalDose1 : int 3548760 2691359 NA NA NA NA NA NA NA NA ...
## $ PercentVaccinatedDose1 : num 0.795 0.603 NA NA NA ...
## $ DailyDose1 : int 0 3454 NA NA NA NA NA NA NA NA ...
## $ TotalDose2 : int 3275269 1113341 NA NA NA NA NA NA NA NA ...
## $ PercentVaccinatedDose2 : num 0.734 0.249 NA NA NA ...
## $ DailyDose2 : int 0 25572 NA NA NA NA NA NA NA NA ...
## $ TotalBooster : int 1431208 NA NA NA NA NA NA NA NA NA ...
## $ DailyBooster : int 0 NA NA NA NA NA NA NA NA NA ...
## $ PercentVaccinatedBooster: num 0.321 NA NA NA NA ...10.1 make new columns for percentage format, not decimal
# create new column for PercentVaccinated
all_data_can_pop$PercentVaccinatedDose1_percent <- ""
all_data_can_pop$PercentVaccinatedDose2_percent <- ""
all_data_can_pop$PercentVaccinatedBooster_percent <- ""10.2 make % percent vacinated columns a percentage not decimal
all_data_can_pop$PercentVaccinatedDose1_percent <- percent(all_data_can_pop$PercentVaccinatedDose1, accuracy = .01)
all_data_can_pop$PercentVaccinatedDose2_percent <- percent(all_data_can_pop$PercentVaccinatedDose2, accuracy = .01)
all_data_can_pop$PercentVaccinatedBooster_percent <- percent(all_data_can_pop$PercentVaccinatedBooster, accuracy = .01)| # Dose 1 ## filter out non-provinces dose1 |
r bar_graph_data_recent_can_dose1 <- all_data_can_pop %>% filter(Date == max(Date), !(Province %in% not_provinces)) %>% select(Province, PercentVaccinatedDose1, PercentVaccinatedDose1_percent) |
| ## Create bar graph % Dose 1 |
r #str(all_data_can_pop) bar_graph_dose1 <- ggplot(bar_graph_data_recent_can_dose1, aes(x = reorder(Province, PercentVaccinatedDose1), y = PercentVaccinatedDose1)) + geom_col(color = "black", fill="#0072B2", size = 0.5) + theme_minimal() + theme(axis.text=element_text(size = 8)) + labs(title = "Dose1 2022-03-23") + ylab(" Vaccinated") + xlab("") + scale_y_continuous(labels = percent_format(), limits=c(0,1)) + coord_flip() |
| ## View bar_graph-%-dose1 |
r #bar_graph_dose1 |
| ## Create a tooltip column in R dose1 |
r bar_graph_data_recent_can_dose1 <- bar_graph_data_recent_can_dose1 %>% mutate( tooltip_text = paste0(toupper(Province), "\n", PercentVaccinatedDose1_percent) ) |
| ## Make the bar chart interactive with ggiraph dose 1 |
| ```r latest_vax_graph_dose1 <- ggplot(bar_graph_data_recent_can_dose1, aes(x = reorder(Province, PercentVaccinatedDose1), y = PercentVaccinatedDose1, tooltip = tooltip_text, data_id = Province #<< )) + geom_col_interactive(color = “black”, fill=“#0072B2”, size = 0.5) + #<< theme_minimal() + theme(axis.text=element_text(size = 6)) + #<< labs(title = “Dose1 2022-03-23”) + ylab(“% Vaccinated”) + xlab("") + scale_y_continuous(labels = percent_format(), limits=c(0,1)) + # scale_y_discrete(guide = guide_axis(angle = 90)) + # if using PercentVaccinatedDose1_percent as axis coord_flip() |
| girafe(ggobj = latest_vax_graph_dose1, width_svg = 5, height_svg = 4) ``` |
{=html} <div id="htmlwidget-10979f9567b01b847110" style="width:672px;height:480px;" class="girafe html-widget"></div> <script type="application/json" data-for="htmlwidget-10979f9567b01b847110">{"x":{"html":"<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<svg xmlns='http://www.w3.org/2000/svg' xmlns:xlink='http://www.w3.org/1999/xlink' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a' viewBox='0 0 360.00 288.00'>\n <g>\n <defs>\n <clipPath id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_1'>\n <rect x='0.00' y='0.00' width='360.00' height='288.00'/>\n <\/clipPath>\n <\/defs>\n <rect x='0.00' y='0.00' width='360.00' height='288.00' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_1' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_1)' fill='#FFFFFF' fill-opacity='1' stroke='#FFFFFF' stroke-opacity='1' stroke-width='0.75' stroke-linejoin='round' stroke-linecap='round'/>\n <defs>\n <clipPath id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_2'>\n <rect x='0.00' y='0.00' width='360.00' height='288.00'/>\n <\/clipPath>\n <\/defs>\n <defs>\n <clipPath id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3'>\n <rect x='123.82' y='23.35' width='230.70' height='235.55'/>\n <\/clipPath>\n <\/defs>\n <polyline points='160.52,258.90 160.52,23.35' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_2' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='212.95,258.90 212.95,23.35' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_3' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='265.39,258.90 265.39,23.35' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_4' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='317.82,258.90 317.82,23.35' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_5' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,246.28 354.52,246.28' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_6' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,225.25 354.52,225.25' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_7' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,204.21 354.52,204.21' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_8' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,183.18 354.52,183.18' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_9' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,162.15 354.52,162.15' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_10' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,141.12 354.52,141.12' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_11' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,120.09 354.52,120.09' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_12' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,99.06 354.52,99.06' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_13' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,78.03 354.52,78.03' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_14' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,57.00 354.52,57.00' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_15' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,35.97 354.52,35.97' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_16' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='134.31,258.90 134.31,23.35' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_17' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='186.74,258.90 186.74,23.35' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_18' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='239.17,258.90 239.17,23.35' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_19' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='291.60,258.90 291.60,23.35' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_20' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='344.03,258.90 344.03,23.35' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_21' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <rect x='134.31' y='236.81' width='168.04' height='18.93' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_22' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='ALBERTA' title='ALBERTA&lt;br&gt;80.12%'/>\n <rect x='134.31' y='89.59' width='179.46' height='18.93' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_23' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='BRITISH COLUMBIA' title='BRITISH COLUMBIA&lt;br&gt;85.57%'/>\n <rect x='134.31' y='194.75' width='175.49' height='18.93' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_24' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='MANITOBA' title='MANITOBA&lt;br&gt;83.67%'/>\n <rect x='134.31' y='68.56' width='184.16' height='18.93' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_25' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NEW BRUNSWICK' title='NEW BRUNSWICK&lt;br&gt;87.81%'/>\n <rect x='134.31' y='26.50' width='200.28' height='18.93' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_26' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NEWFOUNDLAND AND LABRADOR' title='NEWFOUNDLAND AND LABRADOR&lt;br&gt;95.50%'/>\n <rect x='134.31' y='47.53' width='185.39' height='18.93' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_27' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NOVA SCOTIA' title='NOVA SCOTIA&lt;br&gt;88.40%'/>\n <rect x='134.31' y='173.72' width='176.20' height='18.93' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_28' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NUNAVUT' title='NUNAVUT&lt;br&gt;84.01%'/>\n <rect x='134.31' y='152.69' width='176.99' height='18.93' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_29' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='ONTARIO' title='ONTARIO&lt;br&gt;84.39%'/>\n <rect x='134.31' y='131.66' width='177.33' height='18.93' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_30' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='QUEBEC' title='QUEBEC&lt;br&gt;84.55%'/>\n <rect x='134.31' y='215.78' width='171.98' height='18.93' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_31' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='SASKATCHEWAN' title='SASKATCHEWAN&lt;br&gt;82.00%'/>\n <rect x='134.31' y='110.63' width='177.67' height='18.93' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_32' clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='YUKON' title='YUKON&lt;br&gt;84.72%'/>\n <defs>\n <clipPath id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4'>\n <rect x='0.00' y='0.00' width='360.00' height='288.00'/>\n <\/clipPath>\n <\/defs>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='91.54' y='248.43' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_33' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>ALBERTA<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='68.55' y='227.40' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_34' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>SASKATCHEWAN<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='87.55' y='206.37' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_35' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>MANITOBA<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='89.89' y='185.34' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_36' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NUNAVUT<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='91.55' y='164.30' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_37' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>ONTARIO<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='93.55' y='143.27' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_38' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>QUEBEC<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='97.55' y='122.24' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_39' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>YUKON<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='62.21' y='101.21' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_40' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>BRITISH COLUMBIA<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='66.55' y='80.18' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_41' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NEW BRUNSWICK<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='77.88' y='59.15' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_42' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NOVA SCOTIA<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='18.54' y='38.12' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_43' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NEWFOUNDLAND AND LABRADOR<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='129.97' y='268.13' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_44' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>0%<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='180.73' y='268.13' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_45' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>25%<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='233.17' y='268.13' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_46' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>50%<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='285.60' y='268.13' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_47' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>75%<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='336.36' y='268.13' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_48' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>100%<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='205.54' y='280.09' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_49' font-size='8.25pt' font-family='Helvetica'>% Vaccinated<\/text>\n <\/g>\n <g clip-path='url(#svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_cl_4)'>\n <text x='123.82' y='14.95' id='svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a_el_50' font-size='9.90pt' font-family='Helvetica'>Dose1 2022-03-23<\/text>\n <\/g>\n <\/g>\n<\/svg>","js":null,"uid":"svg_55bfb1a8-9fa4-48bf-88a6-751871f4910a","ratio":1.25,"settings":{"tooltip":{"css":".tooltip_SVGID_ { padding:5px;background:black;color:white;border-radius:2px 2px 2px 2px ; position:absolute;pointer-events:none;z-index:999;}\n","offx":10,"offy":0,"use_cursor_pos":true,"opacity":0.9,"usefill":false,"usestroke":false,"delay":{"over":200,"out":500}},"hover":{"css":".hover_SVGID_ { fill:orange;stroke:gray; }\n","reactive":false},"hoverkey":{"css":".hover_key_SVGID_ { stroke:red; }\n","reactive":false},"hovertheme":{"css":".hover_theme_SVGID_ { fill:green; }\n","reactive":false},"hoverinv":{"css":""},"zoom":{"min":1,"max":1},"capture":{"css":".selected_SVGID_ { fill:red;stroke:gray; }\n","type":"multiple","only_shiny":true,"selected":[]},"capturekey":{"css":".selected_key_SVGID_ { stroke:gray; }\n","type":"single","only_shiny":true,"selected":[]},"capturetheme":{"css":".selected_theme_SVGID_ { stroke:gray; }\n","type":"single","only_shiny":true,"selected":[]},"toolbar":{"position":"topright","saveaspng":true,"pngname":"diagram"},"sizing":{"rescale":true,"width":1}}},"evals":[],"jsHooks":[]}</script> |
| # Link multiple graphs dose 1 |
| ## create data frame early dose1 |
r bar_graph_data_early_dose1 <- all_data_can_pop %>% filter(Date == "2021-06-17", !(Province %in% not_provinces)) %>% arrange() %>% mutate( tooltip_text = paste0(toupper(Province), "\n", PercentVaccinatedDose1_percent) ) %>% select(Province, PercentVaccinatedDose1, PercentVaccinatedDose1_percent, tooltip_text) |
| # Create a tooltip column in R data early |
r bar_graph_data_early_dose1 <- bar_graph_data_early_dose1 %>% mutate( tooltip_text = paste0(toupper(Province), "\n", PercentVaccinatedDose1_percent) ) |
| ## create ggplot from data frame dose1 |
| ```r early_vax_graph_dose1 <- ggplot(bar_graph_data_early_dose1, aes(x = reorder(Province, PercentVaccinatedDose1), y = PercentVaccinatedDose1, tooltip = tooltip_text, data_id = Province)) + geom_col_interactive(color = “black”, fill=“#0072B2”, size = 0.5) + theme_minimal() + theme(axis.text=element_text(size = 6)) + labs(title = “Dose1 2021-06-17”) + ylab(“% Vaccinated”) + xlab("") + scale_y_continuous(labels = percent_format(), limits=c(0,1)) + # scale_y_discrete(guide = guide_axis(angle = 90)) + coord_flip() |
| girafe(ggobj = early_vax_graph_dose1, width_svg = 5, height_svg = 4) ``` |
{=html} <div id="htmlwidget-76d56104204a58cad3fe" style="width:672px;height:480px;" class="girafe html-widget"></div> <script type="application/json" data-for="htmlwidget-76d56104204a58cad3fe">{"x":{"html":"<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<svg xmlns='http://www.w3.org/2000/svg' xmlns:xlink='http://www.w3.org/1999/xlink' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a' viewBox='0 0 360.00 288.00'>\n <g>\n <defs>\n <clipPath id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_1'>\n <rect x='0.00' y='0.00' width='360.00' height='288.00'/>\n <\/clipPath>\n <\/defs>\n <rect x='0.00' y='0.00' width='360.00' height='288.00' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_1' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_1)' fill='#FFFFFF' fill-opacity='1' stroke='#FFFFFF' stroke-opacity='1' stroke-width='0.75' stroke-linejoin='round' stroke-linecap='round'/>\n <defs>\n <clipPath id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_2'>\n <rect x='0.00' y='0.00' width='360.00' height='288.00'/>\n <\/clipPath>\n <\/defs>\n <defs>\n <clipPath id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3'>\n <rect x='123.82' y='23.35' width='230.70' height='235.55'/>\n <\/clipPath>\n <\/defs>\n <polyline points='160.52,258.90 160.52,23.35' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_2' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='212.95,258.90 212.95,23.35' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_3' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='265.39,258.90 265.39,23.35' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_4' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='317.82,258.90 317.82,23.35' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_5' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='0.53' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,246.28 354.52,246.28' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_6' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,225.25 354.52,225.25' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_7' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,204.21 354.52,204.21' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_8' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,183.18 354.52,183.18' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_9' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,162.15 354.52,162.15' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_10' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,141.12 354.52,141.12' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_11' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,120.09 354.52,120.09' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_12' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,99.06 354.52,99.06' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_13' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,78.03 354.52,78.03' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_14' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,57.00 354.52,57.00' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_15' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='123.82,35.97 354.52,35.97' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_16' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='134.31,258.90 134.31,23.35' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_17' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='186.74,258.90 186.74,23.35' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_18' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='239.17,258.90 239.17,23.35' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_19' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='291.60,258.90 291.60,23.35' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_20' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <polyline points='344.03,258.90 344.03,23.35' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_21' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='none' stroke='#EBEBEB' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='round' stroke-linecap='butt'/>\n <rect x='134.31' y='194.75' width='124.73' height='18.93' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_22' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='ALBERTA' title='ALBERTA&lt;br&gt;59.47%'/>\n <rect x='134.31' y='131.66' width='138.00' height='18.93' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_23' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='BRITISH COLUMBIA' title='BRITISH COLUMBIA&lt;br&gt;65.80%'/>\n <rect x='134.31' y='173.72' width='127.20' height='18.93' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_24' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='MANITOBA' title='MANITOBA&lt;br&gt;60.65%'/>\n <rect x='134.31' y='110.63' width='138.53' height='18.93' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_25' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NEW BRUNSWICK' title='NEW BRUNSWICK&lt;br&gt;66.05%'/>\n <rect x='134.31' y='47.53' width='143.85' height='18.93' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_26' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NEWFOUNDLAND AND LABRADOR' title='NEWFOUNDLAND AND LABRADOR&lt;br&gt;68.59%'/>\n <rect x='134.31' y='89.59' width='140.42' height='18.93' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_27' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NOVA SCOTIA' title='NOVA SCOTIA&lt;br&gt;66.95%'/>\n <rect x='134.31' y='236.81' width='95.49' height='18.93' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_28' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='NUNAVUT' title='NUNAVUT&lt;br&gt;45.53%'/>\n <rect x='134.31' y='152.69' width='134.60' height='18.93' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_29' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='ONTARIO' title='ONTARIO&lt;br&gt;64.18%'/>\n <rect x='134.31' y='68.56' width='143.15' height='18.93' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_30' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='QUEBEC' title='QUEBEC&lt;br&gt;68.26%'/>\n <rect x='134.31' y='215.78' width='123.96' height='18.93' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_31' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='SASKATCHEWAN' title='SASKATCHEWAN&lt;br&gt;59.11%'/>\n <rect x='134.31' y='26.50' width='146.70' height='18.93' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_32' clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_3)' fill='#0072B2' fill-opacity='1' stroke='#000000' stroke-opacity='1' stroke-width='1.07' stroke-linejoin='miter' stroke-linecap='square' data-id='YUKON' title='YUKON&lt;br&gt;69.95%'/>\n <defs>\n <clipPath id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4'>\n <rect x='0.00' y='0.00' width='360.00' height='288.00'/>\n <\/clipPath>\n <\/defs>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='89.89' y='248.43' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_33' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NUNAVUT<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='68.55' y='227.40' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_34' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>SASKATCHEWAN<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='91.54' y='206.37' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_35' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>ALBERTA<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='87.55' y='185.34' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_36' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>MANITOBA<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='91.55' y='164.30' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_37' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>ONTARIO<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='62.21' y='143.27' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_38' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>BRITISH COLUMBIA<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='66.55' y='122.24' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_39' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NEW BRUNSWICK<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='77.88' y='101.21' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_40' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NOVA SCOTIA<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='93.55' y='80.18' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_41' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>QUEBEC<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='18.54' y='59.15' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_42' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>NEWFOUNDLAND AND LABRADOR<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='97.55' y='38.12' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_43' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>YUKON<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='129.97' y='268.13' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_44' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>0%<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='180.73' y='268.13' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_45' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>25%<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='233.17' y='268.13' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_46' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>50%<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='285.60' y='268.13' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_47' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>75%<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='336.36' y='268.13' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_48' font-size='4.50pt' fill='#4D4D4D' fill-opacity='1' font-family='Helvetica'>100%<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='205.54' y='280.09' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_49' font-size='8.25pt' font-family='Helvetica'>% Vaccinated<\/text>\n <\/g>\n <g clip-path='url(#svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_cl_4)'>\n <text x='123.82' y='14.95' id='svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a_el_50' font-size='9.90pt' font-family='Helvetica'>Dose1 2021-06-17<\/text>\n <\/g>\n <\/g>\n<\/svg>","js":null,"uid":"svg_a336efa7-52d1-4387-8db0-f0c6cee4a65a","ratio":1.25,"settings":{"tooltip":{"css":".tooltip_SVGID_ { padding:5px;background:black;color:white;border-radius:2px 2px 2px 2px ; position:absolute;pointer-events:none;z-index:999;}\n","offx":10,"offy":0,"use_cursor_pos":true,"opacity":0.9,"usefill":false,"usestroke":false,"delay":{"over":200,"out":500}},"hover":{"css":".hover_SVGID_ { fill:orange;stroke:gray; }\n","reactive":false},"hoverkey":{"css":".hover_key_SVGID_ { stroke:red; }\n","reactive":false},"hovertheme":{"css":".hover_theme_SVGID_ { fill:green; }\n","reactive":false},"hoverinv":{"css":""},"zoom":{"min":1,"max":1},"capture":{"css":".selected_SVGID_ { fill:red;stroke:gray; }\n","type":"multiple","only_shiny":true,"selected":[]},"capturekey":{"css":".selected_key_SVGID_ { stroke:gray; }\n","type":"single","only_shiny":true,"selected":[]},"capturetheme":{"css":".selected_theme_SVGID_ { stroke:gray; }\n","type":"single","only_shiny":true,"selected":[]},"toolbar":{"position":"topright","saveaspng":true,"pngname":"diagram"},"sizing":{"rescale":true,"width":1}}},"evals":[],"jsHooks":[]}</script> |
11 Dose 2
11.1 filter out non-provinces dose2
bar_graph_data_recent_can_dose2 <- all_data_can_pop %>%
filter(Date == max(Date), !(Province %in% not_provinces)) %>%
select(Province, PercentVaccinatedDose2, PercentVaccinatedDose2_percent)11.2 Create bar graph % Dose 2
#str(all_data_can_pop)
bar_graph_dose2 <- ggplot(bar_graph_data_recent_can_dose2,
aes(x = reorder(Province, PercentVaccinatedDose2),
y = PercentVaccinatedDose2)) +
geom_col(color = "black", fill="#0072B2", size = 0.5) +
theme_minimal() +
theme(axis.text=element_text(size = 8)) +
labs(title = "Dose2 2022-03-23",
subtitle = "Data from https://resources-covid19canada.hub.arcgis.com"
) +
ylab("% Vaccinated") +
xlab("") +
scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
# scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
coord_flip()11.3 View bar_graph-%-dose2
#bar_graph_dose211.4 Create a tooltip column in R
bar_graph_data_recent_can_dose2 <- bar_graph_data_recent_can_dose2 %>%
mutate(
tooltip_text = paste0(toupper(Province), "\n",
PercentVaccinatedDose2_percent)
)11.5 Make the bar chart interactive with ggiraph
latest_vax_graph_dose2 <- ggplot(bar_graph_data_recent_can_dose2,
aes(x = reorder(Province, PercentVaccinatedDose2),
y = PercentVaccinatedDose2,
tooltip = tooltip_text, data_id = Province #<<
)) +
geom_col_interactive(color = "black", fill="#0072B2", size = 0.5) + #<<
theme_minimal() +
theme(axis.text=element_text(size = 6)) + #<<
labs(title = "Dose2 2022-03-23") +
ylab("% Vaccinated") +
xlab("") +
scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
# scale_y_discrete(guide = guide_axis(angle = 90)) +
coord_flip()
girafe(ggobj = latest_vax_graph_dose2, width_svg = 5, height_svg = 4)11.6 create data frame early dose2
bar_graph_data_early_dose2 <- all_data_can_pop %>%
filter(Date == "2021-06-17", !(Province %in% not_provinces)) %>%
arrange() %>%
mutate(
tooltip_text = paste0(toupper(Province), "\n", PercentVaccinatedDose2_percent)
) %>%
select(Province, PercentVaccinatedDose2, PercentVaccinatedDose2_percent, tooltip_text)11.7 Create a tooltip column in R data early
bar_graph_data_early_dose2 <- bar_graph_data_early_dose2 %>%
mutate(
tooltip_text = paste0(toupper(Province), "\n",
PercentVaccinatedDose2_percent)
)11.8 create ggplot from data frame dose2
early_vax_graph_dose2 <- ggplot(bar_graph_data_early_dose2,
aes(x = reorder(Province, PercentVaccinatedDose2),
y = PercentVaccinatedDose2,
tooltip = tooltip_text, data_id = Province)) +
geom_col_interactive(color = "black", fill="#0072B2", size = 0.5) +
theme_minimal() +
theme(axis.text=element_text(size = 6)) +
labs(title = "Dose2 2021-06-17") +
ylab("% Vaccinated") +
xlab("") +
scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
# scale_y_discrete(guide = guide_axis(angle = 90)) +
coord_flip()
girafe(ggobj = early_vax_graph_dose2, width_svg = 5, height_svg = 4)12 Booster
13 Booster
13.1 filter out non-provinces Booster
bar_graph_data_recent_can_Booster <- all_data_can_pop %>%
filter(Date == max(Date), !(Province %in% not_provinces)) %>%
select(Province, PercentVaccinatedBooster, PercentVaccinatedBooster_percent)
# select(Province, PercentVaccinatedBooster, PercentVaccinatedBooster_percent)13.2 Create bar graph % Booster
note: Newfoundland has a na value, which plots wrong
https://stackoverflow.com/questions/17216358/eliminating-nas-from-a-ggplot
#str(all_data_can_pop)
bar_graph_Booster <- ggplot(bar_graph_data_recent_can_Booster,
aes(x = reorder(Province, PercentVaccinatedBooster),
y = PercentVaccinatedBooster)) +
geom_col(color = "black", fill="#0072B2", size = 0.5) +
theme_minimal() +
theme(axis.text=element_text(size = 8)) +
labs(title = "Booster 2022-03-23") +
ylab("% Vaccinated") +
xlab("") +
scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
coord_flip()13.3 View bar_graph-%-Booster
#bar_graph_Booster13.4 Create a tooltip column in R
bar_graph_data_recent_can_Booster <- bar_graph_data_recent_can_Booster %>%
mutate(
tooltip_text = paste0(toupper(Province), "\n",
PercentVaccinatedBooster_percent)
)13.5 Make the bar chart interactive with ggiraph
latest_vax_graph_Booster <- ggplot(bar_graph_data_recent_can_Booster,
aes(x = reorder(Province, PercentVaccinatedBooster),
y = PercentVaccinatedBooster,
tooltip = tooltip_text, data_id = Province #<<
)) +
geom_col_interactive(color = "black", fill="#0072B2", size = 0.5) + #<<
theme_minimal() +
theme(axis.text=element_text(size = 6)) + #<<
labs(title = "Booster 2022-03-23") +
ylab("% Vaccinated") +
xlab("") +
scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
# scale_y_discrete(guide = guide_axis(angle = 90)) +
coord_flip()
girafe(ggobj = latest_vax_graph_Booster, width_svg = 5, height_svg = 4)## Warning: Removed 1 rows containing missing values (position_stack).13.6 create data frame early Booster
bar_graph_data_early_Booster <- all_data_can_pop %>%
filter(Date == "2021-12-20", !(Province %in% not_provinces)) %>%
arrange() %>%
mutate(
tooltip_text = paste0(toupper(Province), "\n", PercentVaccinatedBooster_percent)
) %>%
select(Province, PercentVaccinatedBooster, PercentVaccinatedBooster_percent, tooltip_text)13.7 Create a tooltip column in R data early
bar_graph_data_early_Booster <- bar_graph_data_early_Booster %>%
mutate(
tooltip_text = paste0(toupper(Province), "\n",
PercentVaccinatedBooster_percent)
)13.8 create ggplot from data frame Booster
early_vax_graph_Booster <- ggplot(bar_graph_data_early_Booster,
aes(x = reorder(Province, PercentVaccinatedBooster),
y = PercentVaccinatedBooster,
tooltip = tooltip_text, data_id = Province)) +
geom_col_interactive(color = "black", fill="#0072B2", size = 0.5) +
theme_minimal() +
theme(axis.text=element_text(size = 6)) +
labs(title = "Booster 2021-12-20") +
ylab("% Vaccinated") +
xlab("") +
scale_y_continuous(labels = percent_format(), limits=c(0,1)) +
# scale_y_discrete(guide = guide_axis(angle = 90)) +
coord_flip()
girafe(ggobj = early_vax_graph_Booster, width_svg = 5, height_svg = 4)14 Link multiple graphs with ggiraph -%-dose1
girafe(code = print(early_vax_graph_dose1 + latest_vax_graph_dose1 + early_vax_graph_dose2 + latest_vax_graph_dose2 + early_vax_graph_Booster + latest_vax_graph_Booster),
width_svg = 12, height_svg = 8) %>%
girafe_options(opts_hover(css = "fill:#e1be6a;"))## Warning: Removed 1 rows containing missing values (position_stack).15 ===================================
16 Canada Map
17 ===================================
18 Need to get Canada map for this
see canmap.Rmd
18.1 read geojson from Canada shapefile >> download into data folder
https://github.com/kjhealy/canmap
canada_cd <- st_read("data/canada_cd_sim.geojson", quiet = TRUE)
canada_cd## Simple feature collection with 293 features and 6 fields
## Geometry type: MULTIPOLYGON
## Dimension: XY
## Bounding box: xmin: -141.0181 ymin: 41.7297 xmax: -52.6194 ymax: 83.1355
## Geodetic CRS: NAD83
## First 10 features:
## CDUID CDNAME CDTYPE PRUID PRNAME
## 1 4609 Division No. 9 CDR 46 Manitoba
## 2 5901 East Kootenay RD 59 British Columbia / Colombie-Britannique
## 3 5933 Thompson-Nicola RD 59 British Columbia / Colombie-Britannique
## 4 4816 Division No. 16 CDR 48 Alberta
## 5 5919 Cowichan Valley RD 59 British Columbia / Colombie-Britannique
## 6 4621 Division No. 21 CDR 46 Manitoba
## 7 4608 Division No. 8 CDR 46 Manitoba
## 8 4811 Division No. 11 CDR 48 Alberta
## 9 4802 Division No. 2 CDR 48 Alberta
## 10 5951 Bulkley-Nechako RD 59 British Columbia / Colombie-Britannique
## rmapshaperid geometry
## 1 0 MULTIPOLYGON (((-97.9474 50...
## 2 1 MULTIPOLYGON (((-114.573 49...
## 3 2 MULTIPOLYGON (((-120.1425 5...
## 4 3 MULTIPOLYGON (((-110 60, -1...
## 5 4 MULTIPOLYGON (((-123.658 48...
## 6 5 MULTIPOLYGON (((-99.0172 55...
## 7 6 MULTIPOLYGON (((-98.6436 50...
## 8 7 MULTIPOLYGON (((-112.8438 5...
## 9 8 MULTIPOLYGON (((-111.3881 5...
## 10 9 MULTIPOLYGON (((-124.4407 5...19 Map Theme
## Map theme
theme_map <- function(base_size=9, base_family="") {
require(grid)
theme_bw(base_size=base_size, base_family=base_family) %+replace%
theme(axis.line=element_blank(),
axis.text=element_blank(),
axis.ticks=element_blank(),
axis.title=element_blank(),
axis.title.x = element_text(size = 8),
panel.background=element_blank(),
panel.border=element_blank(),
panel.grid=element_blank(),
panel.spacing=unit(0, "lines"),
plot.background=element_blank(),
legend.justification = c(0,0),
legend.position = c(0,0),
plot.title = element_text(face = "bold", colour = "black", size = 10),
plot.subtitle = element_text(face = "italic", colour = "black", size = 6, hjust = 0.5, vjust = 1),
plot.caption = element_text(hjust = 0.1, face = "italic", size = 6, vjust = 1)
)
}
theme_set(theme_map())## Loading required package: grid20 Data
20.1 Create directory for figures
20.2 Transform coordinates
Transform the coordinates to a Lambert Conformal Conic Projection.
See https://www.statcan.gc.ca/pub/92-195-x/2011001/other-autre/mapproj-projcarte/m-c-eng.htm
canada_cd <- st_transform(canada_cd, crs = "+proj=lcc +lat_1=49 +lat_2=77 +lon_0=-91.52 +x_0=0 +y_0=0 +datum=NAD83 +units=m +no_defs")
canada_cd## Simple feature collection with 293 features and 6 fields
## Geometry type: MULTIPOLYGON
## Dimension: XY
## Bounding box: xmin: -2529065 ymin: 5816874 xmax: 2793734 ymax: 10396190
## CRS: +proj=lcc +lat_1=49 +lat_2=77 +lon_0=-91.52 +x_0=0 +y_0=0 +datum=NAD83 +units=m +no_defs
## First 10 features:
## CDUID CDNAME CDTYPE PRUID PRNAME
## 1 4609 Division No. 9 CDR 46 Manitoba
## 2 5901 East Kootenay RD 59 British Columbia / Colombie-Britannique
## 3 5933 Thompson-Nicola RD 59 British Columbia / Colombie-Britannique
## 4 4816 Division No. 16 CDR 48 Alberta
## 5 5919 Cowichan Valley RD 59 British Columbia / Colombie-Britannique
## 6 4621 Division No. 21 CDR 46 Manitoba
## 7 4608 Division No. 8 CDR 46 Manitoba
## 8 4811 Division No. 11 CDR 48 Alberta
## 9 4802 Division No. 2 CDR 48 Alberta
## 10 5951 Bulkley-Nechako RD 59 British Columbia / Colombie-Britannique
## rmapshaperid geometry
## 1 0 MULTIPOLYGON (((-457449.9 6...
## 2 1 MULTIPOLYGON (((-1628202 69...
## 3 2 MULTIPOLYGON (((-1838098 74...
## 4 3 MULTIPOLYGON (((-988280.5 7...
## 5 4 MULTIPOLYGON (((-2253700 71...
## 6 5 MULTIPOLYGON (((-461578.4 7...
## 7 6 MULTIPOLYGON (((-500377.6 6...
## 8 7 MULTIPOLYGON (((-1350599 73...
## 9 8 MULTIPOLYGON (((-1372235 69...
## 10 9 MULTIPOLYGON (((-1921887 78...20.3 Make vector map fill
Make a vector of repeated colors—just to fill in the map, for decoration only “as I don’t have any Canadian data to merge in at present”.
map_colors <- RColorBrewer::brewer.pal(8, "Pastel1")
map_colors <- rep(map_colors, 37)20.4 Draw map in ggplot
## Draw the map
p <- ggplot(data = canada_cd,
mapping = aes(fill = PRUID))
p_out <- p + geom_sf(color = "gray60",
size = 0.1) +
scale_fill_manual(values = map_colors) +
guides(fill = FALSE) +
theme_map() +
theme(panel.grid.major = element_line(color = "white"),
legend.key = element_rect(color = "gray40", size = 0.1))## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.ggsave("figures/canada.pdf", p_out, height = 12, width = 15)
p_out
20.5 rename column names
names(canada_cd)[5] <- "Province"20.6 Convert population data.frame to all capitals to match all_data_can
canada_cd$Province = toupper(canada_cd$Province)
canada_cd$Province## [1] "MANITOBA"
## [2] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [3] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [4] "ALBERTA"
## [5] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [6] "MANITOBA"
## [7] "MANITOBA"
## [8] "ALBERTA"
## [9] "ALBERTA"
## [10] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [11] "SASKATCHEWAN"
## [12] "MANITOBA"
## [13] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [14] "ALBERTA"
## [15] "MANITOBA"
## [16] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [17] "SASKATCHEWAN"
## [18] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [19] "MANITOBA"
## [20] "ALBERTA"
## [21] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [22] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [23] "ALBERTA"
## [24] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [25] "SASKATCHEWAN"
## [26] "SASKATCHEWAN"
## [27] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [28] "ALBERTA"
## [29] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [30] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [31] "MANITOBA"
## [32] "ALBERTA"
## [33] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [34] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [35] "SASKATCHEWAN"
## [36] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [37] "MANITOBA"
## [38] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [39] "SASKATCHEWAN"
## [40] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [41] "SASKATCHEWAN"
## [42] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [43] "ALBERTA"
## [44] "SASKATCHEWAN"
## [45] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [46] "MANITOBA"
## [47] "ALBERTA"
## [48] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [49] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [50] "SASKATCHEWAN"
## [51] "SASKATCHEWAN"
## [52] "MANITOBA"
## [53] "SASKATCHEWAN"
## [54] "SASKATCHEWAN"
## [55] "SASKATCHEWAN"
## [56] "ALBERTA"
## [57] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [58] "ALBERTA"
## [59] "SASKATCHEWAN"
## [60] "SASKATCHEWAN"
## [61] "ALBERTA"
## [62] "MANITOBA"
## [63] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [64] "ALBERTA"
## [65] "SASKATCHEWAN"
## [66] "ALBERTA"
## [67] "ALBERTA"
## [68] "ALBERTA"
## [69] "ALBERTA"
## [70] "MANITOBA"
## [71] "SASKATCHEWAN"
## [72] "MANITOBA"
## [73] "MANITOBA"
## [74] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [75] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [76] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [77] "SASKATCHEWAN"
## [78] "MANITOBA"
## [79] "ALBERTA"
## [80] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [81] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [82] "ONTARIO"
## [83] "QUEBEC / QUÉBEC"
## [84] "ONTARIO"
## [85] "ONTARIO"
## [86] "MANITOBA"
## [87] "ONTARIO"
## [88] "ONTARIO"
## [89] "ONTARIO"
## [90] "ONTARIO"
## [91] "QUEBEC / QUÉBEC"
## [92] "ONTARIO"
## [93] "ONTARIO"
## [94] "ONTARIO"
## [95] "ONTARIO"
## [96] "ONTARIO"
## [97] "QUEBEC / QUÉBEC"
## [98] "QUEBEC / QUÉBEC"
## [99] "QUEBEC / QUÉBEC"
## [100] "ONTARIO"
## [101] "ONTARIO"
## [102] "ONTARIO"
## [103] "ONTARIO"
## [104] "ONTARIO"
## [105] "ONTARIO"
## [106] "ONTARIO"
## [107] "ONTARIO"
## [108] "QUEBEC / QUÉBEC"
## [109] "ONTARIO"
## [110] "QUEBEC / QUÉBEC"
## [111] "ONTARIO"
## [112] "ONTARIO"
## [113] "QUEBEC / QUÉBEC"
## [114] "ONTARIO"
## [115] "QUEBEC / QUÉBEC"
## [116] "ONTARIO"
## [117] "QUEBEC / QUÉBEC"
## [118] "ONTARIO"
## [119] "ONTARIO"
## [120] "ONTARIO"
## [121] "QUEBEC / QUÉBEC"
## [122] "ONTARIO"
## [123] "QUEBEC / QUÉBEC"
## [124] "ONTARIO"
## [125] "ONTARIO"
## [126] "ONTARIO"
## [127] "ONTARIO"
## [128] "ONTARIO"
## [129] "ONTARIO"
## [130] "QUEBEC / QUÉBEC"
## [131] "ONTARIO"
## [132] "ONTARIO"
## [133] "ONTARIO"
## [134] "QUEBEC / QUÉBEC"
## [135] "QUEBEC / QUÉBEC"
## [136] "QUEBEC / QUÉBEC"
## [137] "ONTARIO"
## [138] "ONTARIO"
## [139] "QUEBEC / QUÉBEC"
## [140] "ONTARIO"
## [141] "QUEBEC / QUÉBEC"
## [142] "ONTARIO"
## [143] "ONTARIO"
## [144] "ONTARIO"
## [145] "ONTARIO"
## [146] "QUEBEC / QUÉBEC"
## [147] "QUEBEC / QUÉBEC"
## [148] "ONTARIO"
## [149] "QUEBEC / QUÉBEC"
## [150] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [151] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [152] "QUEBEC / QUÉBEC"
## [153] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [154] "QUEBEC / QUÉBEC"
## [155] "QUEBEC / QUÉBEC"
## [156] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [157] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [158] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [159] "QUEBEC / QUÉBEC"
## [160] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [161] "QUEBEC / QUÉBEC"
## [162] "QUEBEC / QUÉBEC"
## [163] "QUEBEC / QUÉBEC"
## [164] "QUEBEC / QUÉBEC"
## [165] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [166] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [167] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [168] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [169] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [170] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [171] "QUEBEC / QUÉBEC"
## [172] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [173] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [174] "PRINCE EDWARD ISLAND / ÎLE-DU-PRINCE-ÉDOUARD"
## [175] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [176] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [177] "QUEBEC / QUÉBEC"
## [178] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [179] "QUEBEC / QUÉBEC"
## [180] "QUEBEC / QUÉBEC"
## [181] "QUEBEC / QUÉBEC"
## [182] "QUEBEC / QUÉBEC"
## [183] "QUEBEC / QUÉBEC"
## [184] "QUEBEC / QUÉBEC"
## [185] "QUEBEC / QUÉBEC"
## [186] "QUEBEC / QUÉBEC"
## [187] "QUEBEC / QUÉBEC"
## [188] "QUEBEC / QUÉBEC"
## [189] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [190] "QUEBEC / QUÉBEC"
## [191] "QUEBEC / QUÉBEC"
## [192] "QUEBEC / QUÉBEC"
## [193] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [194] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [195] "QUEBEC / QUÉBEC"
## [196] "QUEBEC / QUÉBEC"
## [197] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [198] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [199] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [200] "QUEBEC / QUÉBEC"
## [201] "QUEBEC / QUÉBEC"
## [202] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [203] "QUEBEC / QUÉBEC"
## [204] "QUEBEC / QUÉBEC"
## [205] "QUEBEC / QUÉBEC"
## [206] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [207] "QUEBEC / QUÉBEC"
## [208] "QUEBEC / QUÉBEC"
## [209] "QUEBEC / QUÉBEC"
## [210] "QUEBEC / QUÉBEC"
## [211] "QUEBEC / QUÉBEC"
## [212] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [213] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [214] "QUEBEC / QUÉBEC"
## [215] "QUEBEC / QUÉBEC"
## [216] "QUEBEC / QUÉBEC"
## [217] "PRINCE EDWARD ISLAND / ÎLE-DU-PRINCE-ÉDOUARD"
## [218] "QUEBEC / QUÉBEC"
## [219] "QUEBEC / QUÉBEC"
## [220] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [221] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [222] "QUEBEC / QUÉBEC"
## [223] "QUEBEC / QUÉBEC"
## [224] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [225] "QUEBEC / QUÉBEC"
## [226] "QUEBEC / QUÉBEC"
## [227] "QUEBEC / QUÉBEC"
## [228] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [229] "QUEBEC / QUÉBEC"
## [230] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [231] "QUEBEC / QUÉBEC"
## [232] "QUEBEC / QUÉBEC"
## [233] "PRINCE EDWARD ISLAND / ÎLE-DU-PRINCE-ÉDOUARD"
## [234] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [235] "QUEBEC / QUÉBEC"
## [236] "QUEBEC / QUÉBEC"
## [237] "QUEBEC / QUÉBEC"
## [238] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [239] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [240] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [241] "QUEBEC / QUÉBEC"
## [242] "QUEBEC / QUÉBEC"
## [243] "QUEBEC / QUÉBEC"
## [244] "QUEBEC / QUÉBEC"
## [245] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [246] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [247] "QUEBEC / QUÉBEC"
## [248] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [249] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [250] "QUEBEC / QUÉBEC"
## [251] "QUEBEC / QUÉBEC"
## [252] "QUEBEC / QUÉBEC"
## [253] "QUEBEC / QUÉBEC"
## [254] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [255] "NORTHWEST TERRITORIES / TERRITOIRES DU NORD-OUEST"
## [256] "NORTHWEST TERRITORIES / TERRITOIRES DU NORD-OUEST"
## [257] "MANITOBA"
## [258] "NORTHWEST TERRITORIES / TERRITOIRES DU NORD-OUEST"
## [259] "MANITOBA"
## [260] "NORTHWEST TERRITORIES / TERRITOIRES DU NORD-OUEST"
## [261] "NUNAVUT"
## [262] "MANITOBA"
## [263] "MANITOBA"
## [264] "MANITOBA"
## [265] "MANITOBA"
## [266] "NORTHWEST TERRITORIES / TERRITOIRES DU NORD-OUEST"
## [267] "NORTHWEST TERRITORIES / TERRITOIRES DU NORD-OUEST"
## [268] "YUKON"
## [269] "MANITOBA"
## [270] "ONTARIO"
## [271] "ONTARIO"
## [272] "QUEBEC / QUÉBEC"
## [273] "QUEBEC / QUÉBEC"
## [274] "QUEBEC / QUÉBEC"
## [275] "QUEBEC / QUÉBEC"
## [276] "QUEBEC / QUÉBEC"
## [277] "QUEBEC / QUÉBEC"
## [278] "QUEBEC / QUÉBEC"
## [279] "QUEBEC / QUÉBEC"
## [280] "QUEBEC / QUÉBEC"
## [281] "NUNAVUT"
## [282] "ONTARIO"
## [283] "QUEBEC / QUÉBEC"
## [284] "QUEBEC / QUÉBEC"
## [285] "QUEBEC / QUÉBEC"
## [286] "QUEBEC / QUÉBEC"
## [287] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [288] "QUEBEC / QUÉBEC"
## [289] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [290] "QUEBEC / QUÉBEC"
## [291] "QUEBEC / QUÉBEC"
## [292] "QUEBEC / QUÉBEC"
## [293] "NUNAVUT"pop_data_can$Province## [1] "CANADA" "NEWFOUNDLAND AND LABRADOR"
## [3] "PEI" "NOVA SCOTIA"
## [5] "NEW BRUNSWICK" "QUEBEC"
## [7] "ONTARIO" "MANITOBA"
## [9] "SASKATCHEWAN" "ALBERTA"
## [11] "BRITISH COLUMBIA" "YUKON"
## [13] "NWT" "NUNAVUT"20.7 find unique-values
# unique(all_data_can[c("Province")])
canada_cd$Province## [1] "MANITOBA"
## [2] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [3] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [4] "ALBERTA"
## [5] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [6] "MANITOBA"
## [7] "MANITOBA"
## [8] "ALBERTA"
## [9] "ALBERTA"
## [10] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [11] "SASKATCHEWAN"
## [12] "MANITOBA"
## [13] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [14] "ALBERTA"
## [15] "MANITOBA"
## [16] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [17] "SASKATCHEWAN"
## [18] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [19] "MANITOBA"
## [20] "ALBERTA"
## [21] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [22] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [23] "ALBERTA"
## [24] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [25] "SASKATCHEWAN"
## [26] "SASKATCHEWAN"
## [27] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [28] "ALBERTA"
## [29] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [30] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [31] "MANITOBA"
## [32] "ALBERTA"
## [33] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [34] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [35] "SASKATCHEWAN"
## [36] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [37] "MANITOBA"
## [38] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [39] "SASKATCHEWAN"
## [40] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [41] "SASKATCHEWAN"
## [42] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [43] "ALBERTA"
## [44] "SASKATCHEWAN"
## [45] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [46] "MANITOBA"
## [47] "ALBERTA"
## [48] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [49] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [50] "SASKATCHEWAN"
## [51] "SASKATCHEWAN"
## [52] "MANITOBA"
## [53] "SASKATCHEWAN"
## [54] "SASKATCHEWAN"
## [55] "SASKATCHEWAN"
## [56] "ALBERTA"
## [57] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [58] "ALBERTA"
## [59] "SASKATCHEWAN"
## [60] "SASKATCHEWAN"
## [61] "ALBERTA"
## [62] "MANITOBA"
## [63] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [64] "ALBERTA"
## [65] "SASKATCHEWAN"
## [66] "ALBERTA"
## [67] "ALBERTA"
## [68] "ALBERTA"
## [69] "ALBERTA"
## [70] "MANITOBA"
## [71] "SASKATCHEWAN"
## [72] "MANITOBA"
## [73] "MANITOBA"
## [74] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [75] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [76] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [77] "SASKATCHEWAN"
## [78] "MANITOBA"
## [79] "ALBERTA"
## [80] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [81] "BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"
## [82] "ONTARIO"
## [83] "QUEBEC / QUÉBEC"
## [84] "ONTARIO"
## [85] "ONTARIO"
## [86] "MANITOBA"
## [87] "ONTARIO"
## [88] "ONTARIO"
## [89] "ONTARIO"
## [90] "ONTARIO"
## [91] "QUEBEC / QUÉBEC"
## [92] "ONTARIO"
## [93] "ONTARIO"
## [94] "ONTARIO"
## [95] "ONTARIO"
## [96] "ONTARIO"
## [97] "QUEBEC / QUÉBEC"
## [98] "QUEBEC / QUÉBEC"
## [99] "QUEBEC / QUÉBEC"
## [100] "ONTARIO"
## [101] "ONTARIO"
## [102] "ONTARIO"
## [103] "ONTARIO"
## [104] "ONTARIO"
## [105] "ONTARIO"
## [106] "ONTARIO"
## [107] "ONTARIO"
## [108] "QUEBEC / QUÉBEC"
## [109] "ONTARIO"
## [110] "QUEBEC / QUÉBEC"
## [111] "ONTARIO"
## [112] "ONTARIO"
## [113] "QUEBEC / QUÉBEC"
## [114] "ONTARIO"
## [115] "QUEBEC / QUÉBEC"
## [116] "ONTARIO"
## [117] "QUEBEC / QUÉBEC"
## [118] "ONTARIO"
## [119] "ONTARIO"
## [120] "ONTARIO"
## [121] "QUEBEC / QUÉBEC"
## [122] "ONTARIO"
## [123] "QUEBEC / QUÉBEC"
## [124] "ONTARIO"
## [125] "ONTARIO"
## [126] "ONTARIO"
## [127] "ONTARIO"
## [128] "ONTARIO"
## [129] "ONTARIO"
## [130] "QUEBEC / QUÉBEC"
## [131] "ONTARIO"
## [132] "ONTARIO"
## [133] "ONTARIO"
## [134] "QUEBEC / QUÉBEC"
## [135] "QUEBEC / QUÉBEC"
## [136] "QUEBEC / QUÉBEC"
## [137] "ONTARIO"
## [138] "ONTARIO"
## [139] "QUEBEC / QUÉBEC"
## [140] "ONTARIO"
## [141] "QUEBEC / QUÉBEC"
## [142] "ONTARIO"
## [143] "ONTARIO"
## [144] "ONTARIO"
## [145] "ONTARIO"
## [146] "QUEBEC / QUÉBEC"
## [147] "QUEBEC / QUÉBEC"
## [148] "ONTARIO"
## [149] "QUEBEC / QUÉBEC"
## [150] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [151] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [152] "QUEBEC / QUÉBEC"
## [153] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [154] "QUEBEC / QUÉBEC"
## [155] "QUEBEC / QUÉBEC"
## [156] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [157] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [158] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [159] "QUEBEC / QUÉBEC"
## [160] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [161] "QUEBEC / QUÉBEC"
## [162] "QUEBEC / QUÉBEC"
## [163] "QUEBEC / QUÉBEC"
## [164] "QUEBEC / QUÉBEC"
## [165] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [166] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [167] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [168] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [169] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [170] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [171] "QUEBEC / QUÉBEC"
## [172] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [173] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [174] "PRINCE EDWARD ISLAND / ÎLE-DU-PRINCE-ÉDOUARD"
## [175] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [176] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [177] "QUEBEC / QUÉBEC"
## [178] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [179] "QUEBEC / QUÉBEC"
## [180] "QUEBEC / QUÉBEC"
## [181] "QUEBEC / QUÉBEC"
## [182] "QUEBEC / QUÉBEC"
## [183] "QUEBEC / QUÉBEC"
## [184] "QUEBEC / QUÉBEC"
## [185] "QUEBEC / QUÉBEC"
## [186] "QUEBEC / QUÉBEC"
## [187] "QUEBEC / QUÉBEC"
## [188] "QUEBEC / QUÉBEC"
## [189] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [190] "QUEBEC / QUÉBEC"
## [191] "QUEBEC / QUÉBEC"
## [192] "QUEBEC / QUÉBEC"
## [193] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [194] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [195] "QUEBEC / QUÉBEC"
## [196] "QUEBEC / QUÉBEC"
## [197] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [198] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [199] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [200] "QUEBEC / QUÉBEC"
## [201] "QUEBEC / QUÉBEC"
## [202] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [203] "QUEBEC / QUÉBEC"
## [204] "QUEBEC / QUÉBEC"
## [205] "QUEBEC / QUÉBEC"
## [206] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [207] "QUEBEC / QUÉBEC"
## [208] "QUEBEC / QUÉBEC"
## [209] "QUEBEC / QUÉBEC"
## [210] "QUEBEC / QUÉBEC"
## [211] "QUEBEC / QUÉBEC"
## [212] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [213] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [214] "QUEBEC / QUÉBEC"
## [215] "QUEBEC / QUÉBEC"
## [216] "QUEBEC / QUÉBEC"
## [217] "PRINCE EDWARD ISLAND / ÎLE-DU-PRINCE-ÉDOUARD"
## [218] "QUEBEC / QUÉBEC"
## [219] "QUEBEC / QUÉBEC"
## [220] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [221] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [222] "QUEBEC / QUÉBEC"
## [223] "QUEBEC / QUÉBEC"
## [224] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [225] "QUEBEC / QUÉBEC"
## [226] "QUEBEC / QUÉBEC"
## [227] "QUEBEC / QUÉBEC"
## [228] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [229] "QUEBEC / QUÉBEC"
## [230] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [231] "QUEBEC / QUÉBEC"
## [232] "QUEBEC / QUÉBEC"
## [233] "PRINCE EDWARD ISLAND / ÎLE-DU-PRINCE-ÉDOUARD"
## [234] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [235] "QUEBEC / QUÉBEC"
## [236] "QUEBEC / QUÉBEC"
## [237] "QUEBEC / QUÉBEC"
## [238] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [239] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [240] "NOVA SCOTIA / NOUVELLE-ÉCOSSE"
## [241] "QUEBEC / QUÉBEC"
## [242] "QUEBEC / QUÉBEC"
## [243] "QUEBEC / QUÉBEC"
## [244] "QUEBEC / QUÉBEC"
## [245] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [246] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [247] "QUEBEC / QUÉBEC"
## [248] "NEW BRUNSWICK / NOUVEAU-BRUNSWICK"
## [249] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [250] "QUEBEC / QUÉBEC"
## [251] "QUEBEC / QUÉBEC"
## [252] "QUEBEC / QUÉBEC"
## [253] "QUEBEC / QUÉBEC"
## [254] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [255] "NORTHWEST TERRITORIES / TERRITOIRES DU NORD-OUEST"
## [256] "NORTHWEST TERRITORIES / TERRITOIRES DU NORD-OUEST"
## [257] "MANITOBA"
## [258] "NORTHWEST TERRITORIES / TERRITOIRES DU NORD-OUEST"
## [259] "MANITOBA"
## [260] "NORTHWEST TERRITORIES / TERRITOIRES DU NORD-OUEST"
## [261] "NUNAVUT"
## [262] "MANITOBA"
## [263] "MANITOBA"
## [264] "MANITOBA"
## [265] "MANITOBA"
## [266] "NORTHWEST TERRITORIES / TERRITOIRES DU NORD-OUEST"
## [267] "NORTHWEST TERRITORIES / TERRITOIRES DU NORD-OUEST"
## [268] "YUKON"
## [269] "MANITOBA"
## [270] "ONTARIO"
## [271] "ONTARIO"
## [272] "QUEBEC / QUÉBEC"
## [273] "QUEBEC / QUÉBEC"
## [274] "QUEBEC / QUÉBEC"
## [275] "QUEBEC / QUÉBEC"
## [276] "QUEBEC / QUÉBEC"
## [277] "QUEBEC / QUÉBEC"
## [278] "QUEBEC / QUÉBEC"
## [279] "QUEBEC / QUÉBEC"
## [280] "QUEBEC / QUÉBEC"
## [281] "NUNAVUT"
## [282] "ONTARIO"
## [283] "QUEBEC / QUÉBEC"
## [284] "QUEBEC / QUÉBEC"
## [285] "QUEBEC / QUÉBEC"
## [286] "QUEBEC / QUÉBEC"
## [287] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [288] "QUEBEC / QUÉBEC"
## [289] "NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"
## [290] "QUEBEC / QUÉBEC"
## [291] "QUEBEC / QUÉBEC"
## [292] "QUEBEC / QUÉBEC"
## [293] "NUNAVUT"unique(canada_cd[c("Province")])## Simple feature collection with 293 features and 1 field
## Geometry type: MULTIPOLYGON
## Dimension: XY
## Bounding box: xmin: -2529065 ymin: 5816874 xmax: 2793734 ymax: 10396190
## CRS: +proj=lcc +lat_1=49 +lat_2=77 +lon_0=-91.52 +x_0=0 +y_0=0 +datum=NAD83 +units=m +no_defs
## First 10 features:
## Province geometry
## 1 MANITOBA MULTIPOLYGON (((-457449.9 6...
## 2 BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE MULTIPOLYGON (((-1628202 69...
## 3 BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE MULTIPOLYGON (((-1838098 74...
## 4 ALBERTA MULTIPOLYGON (((-988280.5 7...
## 5 BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE MULTIPOLYGON (((-2253700 71...
## 6 MANITOBA MULTIPOLYGON (((-461578.4 7...
## 7 MANITOBA MULTIPOLYGON (((-500377.6 6...
## 8 ALBERTA MULTIPOLYGON (((-1350599 73...
## 9 ALBERTA MULTIPOLYGON (((-1372235 69...
## 10 BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE MULTIPOLYGON (((-1921887 78...20.8 rename row values
canada_cd$Province[canada_cd$Province=="PRINCE EDWARD ISLAND / ÎLE-DU-PRINCE-ÉDOUARD"] <- "PEI"
canada_cd$Province[canada_cd$Province=="NORTHWEST TERRITORIES / TERRITOIRES DU NORD-OUEST"] <- "NWT"
canada_cd$Province[canada_cd$Province=="NEWFOUNDLAND AND LABRADOR / TERRE-NEUVE-ET-LABRADOR"] <- "NEWFOUNDLAND AND LABRADOR"
canada_cd$Province[canada_cd$Province=="BRITISH COLUMBIA / COLOMBIE-BRITANNIQUE"] <- "BRITISH COLUMBIA"
canada_cd$Province[canada_cd$Province=="QUEBEC / QUÉBEC"] <- "QUEBEC"
canada_cd$Province[canada_cd$Province=="NOVA SCOTIA / NOUVELLE-ÉCOSSE"] <- "NOVA SCOTIA"
canada_cd$Province[canada_cd$Province=="NEW BRUNSWICK / NOUVEAU-BRUNSWICK"] <- "NEW BRUNSWICK"canada_cd$Province## [1] "MANITOBA" "BRITISH COLUMBIA"
## [3] "BRITISH COLUMBIA" "ALBERTA"
## [5] "BRITISH COLUMBIA" "MANITOBA"
## [7] "MANITOBA" "ALBERTA"
## [9] "ALBERTA" "BRITISH COLUMBIA"
## [11] "SASKATCHEWAN" "MANITOBA"
## [13] "BRITISH COLUMBIA" "ALBERTA"
## [15] "MANITOBA" "BRITISH COLUMBIA"
## [17] "SASKATCHEWAN" "BRITISH COLUMBIA"
## [19] "MANITOBA" "ALBERTA"
## [21] "BRITISH COLUMBIA" "BRITISH COLUMBIA"
## [23] "ALBERTA" "BRITISH COLUMBIA"
## [25] "SASKATCHEWAN" "SASKATCHEWAN"
## [27] "BRITISH COLUMBIA" "ALBERTA"
## [29] "BRITISH COLUMBIA" "BRITISH COLUMBIA"
## [31] "MANITOBA" "ALBERTA"
## [33] "BRITISH COLUMBIA" "BRITISH COLUMBIA"
## [35] "SASKATCHEWAN" "BRITISH COLUMBIA"
## [37] "MANITOBA" "BRITISH COLUMBIA"
## [39] "SASKATCHEWAN" "BRITISH COLUMBIA"
## [41] "SASKATCHEWAN" "BRITISH COLUMBIA"
## [43] "ALBERTA" "SASKATCHEWAN"
## [45] "BRITISH COLUMBIA" "MANITOBA"
## [47] "ALBERTA" "BRITISH COLUMBIA"
## [49] "BRITISH COLUMBIA" "SASKATCHEWAN"
## [51] "SASKATCHEWAN" "MANITOBA"
## [53] "SASKATCHEWAN" "SASKATCHEWAN"
## [55] "SASKATCHEWAN" "ALBERTA"
## [57] "BRITISH COLUMBIA" "ALBERTA"
## [59] "SASKATCHEWAN" "SASKATCHEWAN"
## [61] "ALBERTA" "MANITOBA"
## [63] "BRITISH COLUMBIA" "ALBERTA"
## [65] "SASKATCHEWAN" "ALBERTA"
## [67] "ALBERTA" "ALBERTA"
## [69] "ALBERTA" "MANITOBA"
## [71] "SASKATCHEWAN" "MANITOBA"
## [73] "MANITOBA" "BRITISH COLUMBIA"
## [75] "BRITISH COLUMBIA" "BRITISH COLUMBIA"
## [77] "SASKATCHEWAN" "MANITOBA"
## [79] "ALBERTA" "BRITISH COLUMBIA"
## [81] "BRITISH COLUMBIA" "ONTARIO"
## [83] "QUEBEC" "ONTARIO"
## [85] "ONTARIO" "MANITOBA"
## [87] "ONTARIO" "ONTARIO"
## [89] "ONTARIO" "ONTARIO"
## [91] "QUEBEC" "ONTARIO"
## [93] "ONTARIO" "ONTARIO"
## [95] "ONTARIO" "ONTARIO"
## [97] "QUEBEC" "QUEBEC"
## [99] "QUEBEC" "ONTARIO"
## [101] "ONTARIO" "ONTARIO"
## [103] "ONTARIO" "ONTARIO"
## [105] "ONTARIO" "ONTARIO"
## [107] "ONTARIO" "QUEBEC"
## [109] "ONTARIO" "QUEBEC"
## [111] "ONTARIO" "ONTARIO"
## [113] "QUEBEC" "ONTARIO"
## [115] "QUEBEC" "ONTARIO"
## [117] "QUEBEC" "ONTARIO"
## [119] "ONTARIO" "ONTARIO"
## [121] "QUEBEC" "ONTARIO"
## [123] "QUEBEC" "ONTARIO"
## [125] "ONTARIO" "ONTARIO"
## [127] "ONTARIO" "ONTARIO"
## [129] "ONTARIO" "QUEBEC"
## [131] "ONTARIO" "ONTARIO"
## [133] "ONTARIO" "QUEBEC"
## [135] "QUEBEC" "QUEBEC"
## [137] "ONTARIO" "ONTARIO"
## [139] "QUEBEC" "ONTARIO"
## [141] "QUEBEC" "ONTARIO"
## [143] "ONTARIO" "ONTARIO"
## [145] "ONTARIO" "QUEBEC"
## [147] "QUEBEC" "ONTARIO"
## [149] "QUEBEC" "NEWFOUNDLAND AND LABRADOR"
## [151] "NOVA SCOTIA" "QUEBEC"
## [153] "NOVA SCOTIA" "QUEBEC"
## [155] "QUEBEC" "NOVA SCOTIA"
## [157] "NEWFOUNDLAND AND LABRADOR" "NEW BRUNSWICK"
## [159] "QUEBEC" "NOVA SCOTIA"
## [161] "QUEBEC" "QUEBEC"
## [163] "QUEBEC" "QUEBEC"
## [165] "NOVA SCOTIA" "NOVA SCOTIA"
## [167] "NEW BRUNSWICK" "NEW BRUNSWICK"
## [169] "NEWFOUNDLAND AND LABRADOR" "NOVA SCOTIA"
## [171] "QUEBEC" "NEWFOUNDLAND AND LABRADOR"
## [173] "NOVA SCOTIA" "PEI"
## [175] "NEWFOUNDLAND AND LABRADOR" "NOVA SCOTIA"
## [177] "QUEBEC" "NEW BRUNSWICK"
## [179] "QUEBEC" "QUEBEC"
## [181] "QUEBEC" "QUEBEC"
## [183] "QUEBEC" "QUEBEC"
## [185] "QUEBEC" "QUEBEC"
## [187] "QUEBEC" "QUEBEC"
## [189] "NOVA SCOTIA" "QUEBEC"
## [191] "QUEBEC" "QUEBEC"
## [193] "NEW BRUNSWICK" "NOVA SCOTIA"
## [195] "QUEBEC" "QUEBEC"
## [197] "NEW BRUNSWICK" "NEWFOUNDLAND AND LABRADOR"
## [199] "NEW BRUNSWICK" "QUEBEC"
## [201] "QUEBEC" "NEW BRUNSWICK"
## [203] "QUEBEC" "QUEBEC"
## [205] "QUEBEC" "NOVA SCOTIA"
## [207] "QUEBEC" "QUEBEC"
## [209] "QUEBEC" "QUEBEC"
## [211] "QUEBEC" "NEWFOUNDLAND AND LABRADOR"
## [213] "NEW BRUNSWICK" "QUEBEC"
## [215] "QUEBEC" "QUEBEC"
## [217] "PEI" "QUEBEC"
## [219] "QUEBEC" "NOVA SCOTIA"
## [221] "NEW BRUNSWICK" "QUEBEC"
## [223] "QUEBEC" "NOVA SCOTIA"
## [225] "QUEBEC" "QUEBEC"
## [227] "QUEBEC" "NOVA SCOTIA"
## [229] "QUEBEC" "NEW BRUNSWICK"
## [231] "QUEBEC" "QUEBEC"
## [233] "PEI" "NEW BRUNSWICK"
## [235] "QUEBEC" "QUEBEC"
## [237] "QUEBEC" "NOVA SCOTIA"
## [239] "NOVA SCOTIA" "NOVA SCOTIA"
## [241] "QUEBEC" "QUEBEC"
## [243] "QUEBEC" "QUEBEC"
## [245] "NEW BRUNSWICK" "NEW BRUNSWICK"
## [247] "QUEBEC" "NEW BRUNSWICK"
## [249] "NEWFOUNDLAND AND LABRADOR" "QUEBEC"
## [251] "QUEBEC" "QUEBEC"
## [253] "QUEBEC" "NEWFOUNDLAND AND LABRADOR"
## [255] "NWT" "NWT"
## [257] "MANITOBA" "NWT"
## [259] "MANITOBA" "NWT"
## [261] "NUNAVUT" "MANITOBA"
## [263] "MANITOBA" "MANITOBA"
## [265] "MANITOBA" "NWT"
## [267] "NWT" "YUKON"
## [269] "MANITOBA" "ONTARIO"
## [271] "ONTARIO" "QUEBEC"
## [273] "QUEBEC" "QUEBEC"
## [275] "QUEBEC" "QUEBEC"
## [277] "QUEBEC" "QUEBEC"
## [279] "QUEBEC" "QUEBEC"
## [281] "NUNAVUT" "ONTARIO"
## [283] "QUEBEC" "QUEBEC"
## [285] "QUEBEC" "QUEBEC"
## [287] "NEWFOUNDLAND AND LABRADOR" "QUEBEC"
## [289] "NEWFOUNDLAND AND LABRADOR" "QUEBEC"
## [291] "QUEBEC" "QUEBEC"
## [293] "NUNAVUT"class(canada_cd)## [1] "sf" "data.frame"str(canada_cd)## Classes 'sf' and 'data.frame': 293 obs. of 7 variables:
## $ CDUID : chr "4609" "5901" "5933" "4816" ...
## $ CDNAME : chr "Division No. 9" "East Kootenay" "Thompson-Nicola" "Division No. 16" ...
## $ CDTYPE : chr "CDR" "RD" "RD" "CDR" ...
## $ PRUID : chr "46" "59" "59" "48" ...
## $ Province : chr "MANITOBA" "BRITISH COLUMBIA" "BRITISH COLUMBIA" "ALBERTA" ...
## $ rmapshaperid: int 0 1 2 3 4 5 6 7 8 9 ...
## $ geometry :sfc_MULTIPOLYGON of length 293; first list element: List of 1
## ..$ :List of 1
## .. ..$ : num [1:59, 1:2] -457450 -458022 -458301 -457720 -457562 ...
## ..- attr(*, "class")= chr [1:3] "XY" "MULTIPOLYGON" "sfg"
## - attr(*, "sf_column")= chr "geometry"
## - attr(*, "agr")= Factor w/ 3 levels "constant","aggregate",..: NA NA NA NA NA NA
## ..- attr(*, "names")= chr [1:6] "CDUID" "CDNAME" "CDTYPE" "PRUID" ...21 Create Map
p_can <- ggplot(data = canada_cd,
mapping = aes(fill = PRUID))
p_can_out <- p_can + geom_sf(color = "gray60",
size = 0.1) +
scale_fill_manual(values = map_colors) +
guides(fill = FALSE) +
labs(title = "Canada COVID % Vaccination 2021-2022",
subtitle = "click for interactive map/chart (Data:resources-covid19canada.hub.arcgis.com)") +
theme_map() +
theme(panel.grid.major = element_line(color = "white"),
legend.key = element_rect(color = "gray40", size = 0.1))## Warning: `guides(<scale> = FALSE)` is deprecated. Please use `guides(<scale> =
## "none")` instead.#ggsave("figures/canada.pdf", p_can_out, height = 12, width = 15)
p_can_out
22 Link a map and bar chart with ggiraph
prov_map <- ggplot() +
labs(title = "Canada COVID % Vaccination 2021-2022",
subtitle = "click for interactive map/chart (Data:resources-covid19canada.hub.arcgis.com)") +
geom_sf_interactive(data = canada_cd, size = 0.125,
aes(data_id = Province, tooltip = Province)) +
theme_map()22.1 Display map and graph using girafe() and its ggobj
girafe(ggobj = prov_map + latest_vax_graph,
width_svg = 10, height_svg = 5) %>%
girafe_options(opts_hover(css = "fill:#e1be6a;"))22.2 display-map-multi-graph
girafe(ggobj = prov_map + early_vax_graph_dose1 + latest_vax_graph_dose1 + early_vax_graph_dose2 + latest_vax_graph_dose2 + early_vax_graph_Booster + latest_vax_graph_Booster,
width_svg = 12, height_svg = 8) %>%
girafe_options(opts_hover(css = "fill:#e1be6a;"))## Warning: Removed 1 rows containing missing values (position_stack).